SUBROUTINE GETREADY
!
! Verwendungszweck:
!
!   Vorbereitungen fuer den Start der zeitabhaengigen Rechnung:
!               - Berechnung aller Hilfsvariable fuer das Startmodell
!               - ???
!
!-----------------------------------------------------------------------

      use primvar,       only : X, XZ, XA
      use matvar,        only : UPDATE_MATFCT
      use newton_helper, only : AUXILARIES

      implicit none

!-----------------------------------------------------------------------
!  Default - Belegung von X und XZ
!-----------------------------------------------------------------------
! Wenn die Anzahl der Variablen groesser ist als die Anzahl der Gleichungen die auch geloest
! werden  ( nv > ng )  bleiben die 'ueberzaehligen' Variablen jeweils unveraendert.
! Um jedoch auch alle Ausdruecke in den Hilfsvariablen und beim Aufstellen von G und DG sinnvoll
! auswerten zu koennen muessen diese 'ueberzaehligen' Variablen auch in X und XZ auf sinnvolle
! Werte gesetzt werden. ( XA und X_extrapol wurden schon in readdata.f90 vollstaendig geschrieben)
!
! Im Folgenden setzen wir hier X und XZ die gleichen Werte von XA -- somit sind auch die
! 'ueberzaehligen' Variablen in X und XZ auf jeden Fall sinnvoll definiert, unabhaenging
! von den aktuellen Werten von ng und nv.

      X(:,:)  = XA(:,:)
      XZ(:,:) = XA(:,:)


!-----------------------------------------------------------------------
!  Berechnung eines kompletten Satzes Hilfsvariable
!-----------------------------------------------------------------------
! Berechnung aller Hilfsvariablen fuer den ersten aufruf von 'output' (in 'time')
! und fuer das Berechnen des Startwerts der Gesamtenergie und des Gesamtdrehimpulses
! und zum Initialisieren der .tpd und .lag -files.
! 'auxilaries' wird im code 2 mal aufgerufen: hier und in 'newton'
! Mit 'update_matfct' bekommen wir die passenden Materialfunktionen fuer das Startmodell XA.

      call AUXILARIES
      call UPDATE_MATFCT


END SUBROUTINE GETREADY
